
PROGRAM 0   280 BYTES

   DPY-9010A DEMO, VERSION 
   DPY-+30-JUN-81
   SYNC ADDRESS
   REG1 = 7
0: LABEL 0
   DPY-+#
   EXECUTE PROGRAM 6
   DEC REG1
   IF REG1 > 0 GOTO 0
   EXECUTE PROGRAM 9
1: LABEL 1
   DPY-WANT TO TEST TK-80 DISPLAY
   DPY-+#?1
   IF REG1 = 0 GOTO 4
   EXECUTE PROGRAM 32
2: LABEL 2
   DPY-DID DISPLAY TEST PASS#?1
   IF REG1 = 1 GOTO 4
3: LABEL 3
   DPY-TROUBLESHOOT TK-80 DISPLAY
   DPY-+#?1
   IF REG1 = 0 GOTO 4
   EXECUTE PROGRAM 20
4: LABEL 4
   DPY-WANT TO TEST TK-80
   DPY-+ KEYBOARD#?1
   IF REG1 = 0 GOTO 5
   EXECUTE PROGRAM 30
5: LABEL 5
   DPY-END OF TK-80 TEST#

PROGRAM 3   18 BYTES

   EXECUTE PROGRAM 4
1: LABEL 1
   IF REGB = 40 GOTO 1

PROGRAM 4   12 BYTES

   REGB = 40
   DPY-+%B

PROGRAM 5   120 BYTES

   REG0 = REG8
   REG4 = 1
1: LABEL 1
   REG1 = REG0 SHR SHR SHR SHR SHR SHR SHR SHR
   REG2 = REG1 SHR SHR SHR SHR SHR SHR SHR SHR
   REG3 = REG2 SHR SHR SHR SHR SHR SHR SHR SHR
   WRITE @ REGF INC = REG3 AND FF
   WRITE @ REGF INC = REG2 AND FF
   WRITE @ REGF INC = REG1 AND FF
   WRITE @ REGF INC = REG0 AND FF
   IF REG4 = 2 GOTO 2
   INC REG4
   REG0 = REG9
   GOTO 1
2: LABEL 2

PROGRAM 6   16 BYTES

0: LABEL 0
   INC REG1
   IF 5 > REG1 GOTO 0

PROGRAM 7   14 BYTES

   EXECUTE PROGRAM 6
   EXECUTE PROGRAM 6
   EXECUTE PROGRAM 6
   EXECUTE PROGRAM 6

PROGRAM 8   8 BYTES

   EXECUTE PROGRAM 7
   EXECUTE PROGRAM 7

PROGRAM 9   8 BYTES

   EXECUTE PROGRAM 8
   EXECUTE PROGRAM 8

PROGRAM 11   15 BYTES

   REGF = 8FF7
   EXECUTE PROGRAM 5
   EXECUTE PROGRAM 9

PROGRAM 20   1300 BYTES

   DPY-DISPLAY FAULT ISOLATION#
   EXECUTE PROGRAM 9
   WRITE @ 100FB = 92
   WRITE @ REGF DEC = 80
0: LABEL 0
   DPY-TEST TIMING AND INPUTS
   EXECUTE PROGRAM 9
   REG8 = 5002811
   REG9 = 4005
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = FE733427
   REG9 = 3400
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = 10103426
   REG9 = 3402
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = 5002810
   REG9 = 402805
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = 5002803
   REG9 = 51071905
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = REG8 INC INC
   REG9 = 2805
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
1: LABEL 1
   DPY-TEST INTERNAL CONTROLS
   EXECUTE PROGRAM 9
   REG8 = FCE65302
   REG9 = 3000
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = 5005303
   REG9 = 2805
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = 5005108
   REG9 = 3405
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   INC REG8
   REG9 = 53515205
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = 5005311
   REG9 = 53525105
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   INC REG8
   REG9 = 51525305
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = 13135313
   REG9 = 41283502
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = 5005308
   REG9 = 51525305
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   INC REG8
   REG9 = 51525305
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
2: LABEL 2
   REG8 = 7BF2001
   REG9 = 5300
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = 5002704
   REG9 = 2005
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
3: LABEL 3
   DPY-TEST ADDRS COUNT / CONTROL
   EXECUTE PROGRAM 9
   REG8 = 5002601
   REG9 = 51535205
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   INC REG8
   REG9 = 5405
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = REG8 INC INC
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = REG8 INC INC
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = 1062603
   REG9 = 2606
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = REG8 INC INC
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = REG8 INC INC
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
4: LABEL 4
   DPY-TEST DIGIT DECODER
   EXECUTE PROGRAM 9
   REG8 = 5005512
   REG9 = 2705
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = 5005501
   REG9 = 5505
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   INC REG8
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   INC REG8
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   INC REG8
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   INC REG8
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   INC REG8
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   INC REG8
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = REG8 INC INC
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
5: LABEL 5
   DPY-TEST SEGMENT DRIVE BUFFER
   EXECUTE PROGRAM 9
   REG8 = AA55AA55
   REG9 = REG8
   EXECUTE PROGRAM 11
   REG8 = 2082104
   REG9 = 2106
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = REG8 INC INC
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = REG8 INC INC
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = 2082110
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = 2082115
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = REG8 INC INC
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = REG8 INC INC
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
   REG8 = 2082121
   EXECUTE PROGRAM 21
   IF REGB = 1D GOTO F
6: LABEL 6
   DPY-#REPLACE DISP DIGIT/SEGMENT
   DPY-+ CKT
   STOP
F: LABEL F
   DPY-END FAULT ISOLATION#
   EXECUTE PROGRAM 8

PROGRAM 21   452 BYTES

   REG3 = REG8 AND FF
   REGA = REG8 SHR SHR SHR SHR SHR SHR SHR SHR
   REG2 = REGA AND FF
   REG4 = REGA SHR SHR SHR SHR SHR SHR SHR SHR
   REG5 = 0
   EXECUTE PROGRAM 4
   DPY-#PROBE U$2 PIN $3
   REGA = 0
   EXECUTE PROGRAM 24
   IF REGB = 40 GOTO 0
   IF 40 > REGB GOTO F
   REGB = 40
   GOTO 2
0: LABEL 0
   REGD = REG4
   DPY-U$2-$3 
   EXECUTE PROGRAM 26
   REG0 = REGC
   REG1 = REGD
   EXECUTE PROGRAM 23
   IF 40 > REGB GOTO C
5: LABEL 5
   IF REG9 AND 2 > 0 GOTO 1
   IF REGA = REG0 GOTO B
   GOTO 2
1: LABEL 1
   IF REGA > REG1 GOTO 2
   IF REGA >= REG0 GOTO B
2: LABEL 2
   IF 40 > REGB GOTO C
   DPY-+BAD;LOOP
   IF REG5 > 0 GOTO 0
   DPY-+#?5
   IF REG5 > 0 GOTO 0
   REG6 = REG9
   DPY-REPLACE BAD
3: LABEL 3
   REG6 = REG6 SHR SHR SHR SHR SHR SHR SHR SHR
   IF REG6 = 0 GOTO 4
   REG7 = REG6 AND FF
   DPY-+ U$7
   GOTO 3
4: LABEL 4
   DPY-+#; CONT?6
   IF REG6 = 1 GOTO C
   IF 40 > REGB GOTO D
   DPY-+%B
   GOTO D
B: LABEL B
   DPY-+GOOD
   IF 40 > REGB GOTO C
   IF REG5 > 0 GOTO 0
C: LABEL C
   EXECUTE PROGRAM 9
   IF REGB = 40 GOTO E
   IF REGB > 25 GOTO F
   IF 25 > REGB GOTO F
   REGB = 40
   IF REG5 = 0 GOTO F
   REG5 = 0
   DPY-+%B
   GOTO 5
D: LABEL D
   REGB = 1D
   GOTO F
E: LABEL E
   DPY-+%B
F: LABEL F
   REGA = 1
   EXECUTE PROGRAM 24

PROGRAM 22   234 BYTES

0: LABEL 0
   WRITE @ 100FB = 92
   WRITE @ REGF DEC = 80
   REGD = 0
   DPY-SIG=0; LEVEL=1,5; COUNT=2,6
   DPY-+?
   EXECUTE PROGRAM 3
1: LABEL 1
   REG9 = REGB
   IF REG9 > 6 GOTO 0
   IF REG9 = 3 GOTO 0
   IF REG9 = 4 GOTO 0
   EXECUTE PROGRAM 4
   IF REG9 AND 4 = 0 GOTO 2
   REG1 = REG9
   REG8 = AA55AA55
   REG9 = REG8
   EXECUTE PROGRAM 11
   REG9 = REG1
2: LABEL 2
   REG8 = 0
   REGC = 0
   REGD = 0
   DPY-$9; SYNC
   IF REG9 AND 4 = 0 GOTO 3
   DPY-+ FREE RUN..
   GOTO 4
3: LABEL 3
   DPY-+ ADDRESS..
4: LABEL 4
   EXECUTE PROGRAM 26
   IF 40 > REGB GOTO 1
   EXECUTE PROGRAM 23
   EXECUTE PROGRAM 8
   GOTO 2

PROGRAM 23   204 BYTES

   SYNC FREE-RUN
   IF REG9 AND 4 > 0 GOTO 1
   SYNC ADDRESS
1: LABEL 1
   IF REG9 AND 3 > 0 GOTO 2
   REG1 = REGD
   READ PROBE
   EXECUTE PROGRAM 27
   READ PROBE
   REGA = REG0 SHR SHR SHR SHR SHR SHR SHR SHR AND FFFF
   DPY-+$A
   REGD = REG1
   GOTO E
2: LABEL 2
   IF REG9 AND 1 > 0 GOTO 4
   IF REG9 AND 2 = 0 GOTO F
   READ PROBE
   READ PROBE
   IF REG9 AND 4 > 0 GOTO 3
   EXECUTE PROGRAM 27
   READ PROBE
3: LABEL 3
   REGA = REG0 AND 7F
   DPY-+$AH
   GOTO E
4: LABEL 4
   IF REG9 AND 4 = 0 GOTO 5
   READ PROBE
   EXECUTE PROGRAM 6
   READ PROBE
   GOTO 6
5: LABEL 5
   READ PROBE
   EXECUTE PROGRAM 27
   READ PROBE
6: LABEL 6
   REGA = REG0 AND 7000000
   REGC = REGA
   EXECUTE PROGRAM 25
E: LABEL E
   DPY-+, 
F: LABEL F

PROGRAM 24   246 BYTES

   SYNC FREE-RUN
   IF REGA > 0 GOTO 0
   IF REG9 AND 10 > 0 GOTO 4
   IF REG9 AND 1 = 0 GOTO 0
   IF REG8 AND 7000000 = 2000000 GOTO 4
0: LABEL 0
   REG1 = 10
1: LABEL 1
   READ PROBE
   IF REGA = 0 GOTO 2
   IF REG0 AND 5000000 = 0 GOTO 3
   DPY-REMOVE PROBE
   GOTO 0
2: LABEL 2
   IF 40 > REGB GOTO D
   IF REG0 AND 5000000 = 0 GOTO 0
3: LABEL 3
   DEC REG1
   IF 40 > REGB GOTO F
   IF REG1 > 0 GOTO 1
   GOTO F
4: LABEL 4
   DPY-+, CONTINUE
5: LABEL 5
   IF REGB = 40 GOTO 5
   IF REGB = 25 GOTO 6
   GOTO F
6: LABEL 6
   EXECUTE PROGRAM 4
   GOTO F
D: LABEL D
   IF 25 > REGB GOTO F
   IF REGB > 25 GOTO F
   EXECUTE PROGRAM 4
   REGB = 41
   DPY-+ 
F: LABEL F

PROGRAM 25   74 BYTES

   IF REGC AND 1000000 = 0 GOTO 1
   DPY-+H
1: LABEL 1
   IF REGC AND 2000000 = 0 GOTO 2
   DPY-+X
2: LABEL 2
   IF REGC AND 4000000 = 0 GOTO 3
   DPY-+L
3: LABEL 3

PROGRAM 26   136 BYTES

   IF REG9 AND 3 = 0 GOTO 1
   IF REG9 AND 1 = 1 GOTO 2
   IF REG9 AND 2 = 2 GOTO 3
   GOTO 4
1: LABEL 1
   REGC = REGD
   DPY-+SIG $C
   GOTO 4
2: LABEL 2
   REGC = REG8 AND 7000000
   DPY-+LEVEL 
   EXECUTE PROGRAM 25
   GOTO 4
3: LABEL 3
   REGC = REGD SHR SHR SHR SHR SHR SHR SHR SHR AND 7F
   REGD = REGD AND 7F
   DPY-+CNT $C-$D
4: LABEL 4
   DPY-+= 

PROGRAM 27   58 BYTES

   WRITE @ 100FB = 92
   DTOG @ REGF DEC = 0 BIT 7
   REGF = 8FF7
1: LABEL 1
   WRITE @ REGF INC = AA
   WRITE @ REGF = 55
   IF 8FFF > REGF GOTO 1

PROGRAM 30   631 BYTES

   DPY-TK-80 KEYBOARD TEST#
   DPY-+...WAIT
   EXECUTE PROGRAM 4
   REGF = 8BFF
   REG8 = 3F
   REG9 = 6
   EXECUTE PROGRAM 5
   REG8 = 5B
   REG9 = 4F
   EXECUTE PROGRAM 5
   REG8 = 66
   REG9 = 6D
   EXECUTE PROGRAM 5
   REG8 = 7D
   REG9 = 7
   EXECUTE PROGRAM 5
   REG8 = 7F
   REG9 = 6F
   EXECUTE PROGRAM 5
   REG8 = 77
   REG9 = 7C
   EXECUTE PROGRAM 5
   REG8 = 39
   REG9 = 5E
   EXECUTE PROGRAM 5
   REG8 = 79
   REG9 = 71
   EXECUTE PROGRAM 5
   REG8 = 377937
   REG9 = 507B6F
   EXECUTE PROGRAM 5
   REG8 = 501C54
   REG9 = 73507B
   EXECUTE PROGRAM 5
   REG8 = 6D787B73
   REG9 = 547B
   EXECUTE PROGRAM 5
   REG8 = 7C50
   REG9 = 5073
   EXECUTE PROGRAM 5
   REG8 = 733E6D76
   REG9 = 3F3779
   EXECUTE PROGRAM 11
   REG2 = 100FA
   REG3 = 100F8
   WRITE @ 100FB = 92
   DPY-+#
1: LABEL 1
   READ @ STS
   IF REGC AND 10 = 10 GOTO E
   IF 40 > REGB GOTO F
   REG1 = EF
2: LABEL 2
   WRITE @ REG2 = REG1 AND FF
   READ @ REG3
   IF FF > REGE GOTO 3
   IF REG1 = 3BC GOTO 7
   REG1 = REG1 SHL
   GOTO 2
3: LABEL 3
   REGA = 0
   REGE = REGE CPL AND FF
4: LABEL 4
   SHR REGE
   IF REGE = 0 GOTO 5
   INC REGA
   GOTO 4
5: LABEL 5
   IF REG1 = EF GOTO 6
   SHR REG1
   REGA = REGA INC INC INC INC INC INC INC INC
   GOTO 5
6: LABEL 6
   REG8 = 0
   EXECUTE PROGRAM 31
   IF 40 > REGB GOTO F
   GOTO 1
7: LABEL 7
   DPY-PUSH A TK-80 KEY; RESET=
   DPY-+EXIT
   WRITE @ 8FFC = 0
   WRITE @ REGF INC = 3F
   WRITE @ REGF INC = 37
   WRITE @ REGF INC = 79
   WRITE @ 100FB = 92
   GOTO 1
E: LABEL E
   READ @ STS
   DPY-KEY "RESET"
   REG9 = 507B6D
   EXECUTE PROGRAM 11
   IF 40 > REGB GOTO F
   IF REGC AND 10 = 10 GOTO E
   EXECUTE PROGRAM 4
F: LABEL F
   DPY-END OF TK-80 KEYBOARD TEST
   REG8 = 0
   REG9 = 79545E
   EXECUTE PROGRAM 11

PROGRAM 31   253 BYTES

   DPY-TK-80 KEY PRESSED = 
   IF REGA = 10 GOTO 0
   IF REGA = 11 GOTO 1
   IF REGA = 12 GOTO 2
   IF REGA = 13 GOTO 3
   IF REGA = 14 GOTO 4
   IF REGA = 15 GOTO 5
   IF REGA = 16 GOTO 6
   IF REGA = 17 GOTO 7
   DPY-+$A
   GOTO 8
0: LABEL 0
   DPY-+MEM
   GOTO 8
1: LABEL 1
   DPY-+REG
   GOTO 8
2: LABEL 2
   DPY-+RUN
   GOTO 8
3: LABEL 3
   DPY-+PREV
   GOTO 8
4: LABEL 4
   DPY-+STEP
   GOTO 8
5: LABEL 5
   DPY-+NEXT
   GOTO 8
6: LABEL 6
   DPY-+BRK
   GOTO 8
7: LABEL 7
   DPY-+RP
8: LABEL 8
   REG1 = REGA SHL SHL OR 8C00
   REG2 = 8FFC
9: LABEL 9
   READ @ REG1
   WRITE @ REG2 = REGE
   INC REG1
   INC REG2
   IF 9000 > REG2 GOTO 9

PROGRAM 32   484 BYTES

   DPY-#TK-80 DISPLAY TEST
   EXECUTE PROGRAM 4
   EXECUTE PROGRAM 8
   WRITE @ 100FB = 92
   WRITE @ REGF DEC = 80
   IF 40 > REGB GOTO F
   DPY-LIGHT ALL DISPLAY SEGMENTS
   REG8 = FFFFFFFF
   REG9 = FFFFFFFF
   EXECUTE PROGRAM 11
   IF 40 > REGB GOTO F
   DPY-CLEAR TK-80 DISPLAY
   REG8 = 0
   REG9 = 0
   EXECUTE PROGRAM 11
   IF 40 > REGB GOTO F
   DPY-START WITH RIGHT DIGIT
   EXECUTE PROGRAM 7
   REGF = 8FFF
   REGA = 1
1: LABEL 1
   REGE = 1
2: LABEL 2
   DPY-TESTING DIGIT $A SEGMENT $E
   WRITE @ REGF = REGE
   EXECUTE PROGRAM 6
   IF 40 > REGB GOTO F
   SHL REGE
   IF 100 > REGE GOTO 2
   REGC = 0
   REGE = 3F
   EXECUTE PROGRAM 33
   REGE = 6
   EXECUTE PROGRAM 33
   REGE = 5B
   EXECUTE PROGRAM 33
   IF 40 > REGB GOTO F
   REGE = 4F
   EXECUTE PROGRAM 33
   REGE = 66
   EXECUTE PROGRAM 33
   REGE = 6D
   EXECUTE PROGRAM 33
   IF 40 > REGB GOTO F
   REGE = 7C
   EXECUTE PROGRAM 33
   REGE = 7
   EXECUTE PROGRAM 33
   REGE = 7F
   EXECUTE PROGRAM 33
   REGE = 67
   EXECUTE PROGRAM 33
   DPY-TESTING DIGIT $A = BLANK
   WRITE @ REGF = 0
   EXECUTE PROGRAM 6
   IF 40 > REGB GOTO F
   INC REGA
   DEC REGF
   IF 9 > REGA GOTO 1
   IF 40 > REGB GOTO F
   EXECUTE PROGRAM 4
F: LABEL F
   DPY-END OF DISPLAY TEST
   REG8 = 0
   REG9 = 79545E
   EXECUTE PROGRAM 11

PROGRAM 33   37 BYTES

   DPY-TESTING DIGIT $A = $C
   WRITE @ REGF = REGE
   INC REGC
   EXECUTE PROGRAM 6

PROGRAM 90   693 BYTES

   DPY-DOWNLOADING PROGRAM#
   WRITE @ 8C00 = 21
   WRITE @ REGF INC = 2B
   WRITE @ REGF INC = 8C
   WRITE @ REGF INC = 01
   WRITE @ REGF INC = 2C
   WRITE @ REGF INC = 8C
   WRITE @ REGF INC = 7E
   WRITE @ REGF INC = 32
   WRITE @ REGF INC = 29
   WRITE @ REGF INC = 8C
   WRITE @ REGF INC = 23
   WRITE @ REGF INC = CD
   WRITE @ REGF INC = D2
   WRITE @ REGF INC = 3
   WRITE @ REGF INC = 3A
   WRITE @ REGF INC = 2A
   WRITE @ REGF INC = 8C
   WRITE @ REGF INC = 57
   WRITE @ REGF INC = CD
   WRITE @ REGF INC = F6
   WRITE @ REGF INC = 3
   WRITE @ REGF INC = 15
   WRITE @ REGF INC = C2
   WRITE @ REGF INC = 12
   WRITE @ REGF INC = 8C
   WRITE @ REGF INC = 3
   WRITE @ REGF INC = 60
   WRITE @ REGF INC = 69
   WRITE @ REGF INC = 3A
   WRITE @ REGF INC = 29
   WRITE @ REGF INC = 8C
   WRITE @ REGF INC = 3D
   WRITE @ REGF INC = CA
   WRITE @ REGF INC = 0
   WRITE @ REGF INC = 8C
   WRITE @ REGF INC = 32
   WRITE @ REGF INC = 29
   WRITE @ REGF INC = 8C
   WRITE @ REGF INC = C3
   WRITE @ REGF INC = B
   WRITE @ REGF INC = 8C
   WRITE @ REGF INC INC = A0
   WRITE @ REGF INC = 1F
   WRITE @ REGF INC = 0
   WRITE @ REGF INC = 0
   WRITE @ REGF INC = 0
   WRITE @ REGF INC = 0
   WRITE @ REGF INC = 0
   WRITE @ REGF INC = 0
   WRITE @ REGF INC = 0
   WRITE @ REGF INC = 0
   WRITE @ REGF INC = 67
   WRITE @ REGF INC = 17
   WRITE @ REGF INC = 6
   WRITE @ REGF INC = 17
   WRITE @ REGF INC = 77
   WRITE @ REGF INC = 0
   WRITE @ REGF INC = 0
   WRITE @ REGF INC = 30
   WRITE @ REGF INC = 6D
   WRITE @ REGF INC = 0
   WRITE @ REGF INC = 0
   WRITE @ REGF INC = 71
   WRITE @ REGF INC = 5C
   WRITE @ REGF INC = 50
   WRITE @ REGF INC = 0
   WRITE @ REGF INC = REGE
   WRITE @ REGF INC = 6E
   WRITE @ REGF INC = 5C
   WRITE @ REGF INC = 1C
   WRITE @ REGF INC = 0
   WRITE @ REGF INC = 82
   WRITE @ REGF INC = REGE
   WRITE @ REGF INC = REGE
   WRITE @ REGF INC = REGE
   WRITE @ REGF INC = 0
   WRITE @ REGF INC = REGE
   WRITE @ REGF INC = REGE
   WRITE @ REGF INC = REGE
   WRITE @ REGF INC = REGE
   WRITE @ REGF INC = REGE
   WRITE @ REGF INC = REGE
   WRITE @ REGF INC = REGE
   DPY-RUNNING PROGRAM#
   RUN UUT @ 8C00

PROGRAM 99   106 BYTES

   DPY-LOG OUT?? ARE YOU SURE# ?3
   IF REG3 = 0 GOTO F
   DPY-LOGGING OUT
   AUX-BYE F
0: LABEL 0
   AUX-/0+
   IF REG0 = 3E GOTO E
   GOTO 0
E: LABEL E
   DPY-LOG OUT COMPLETE#
F: LABEL F
